perm filename TEST2.PCO[S1,ALS]1 blob sn#411923 filedate 1979-01-24 generic text, type T, neo UTF8
 SST P  $MAINBLK       1       0       0     524       0
 SST P  AA000001       2      12       0      12      12
 LOC     0
 BGN 1,0,0
AA000001 ENT P,2,L1  AA             1 1 1
 LOD I,2,8
 LOD I,2,12
 DVI
 STR I,2,28
 LOD I,2,8
 LOD I,1,64
 EQU I
 FJP L2
 LDA 1,13
 LOC    10
 CSP  SIO
 LCA 'A1 = M1'
 LDC I,7
 LDC I,7
 CSP  WRS
 CSP  EIO
 UJP L3
L2 LAB
 LDA 1,13
 CSP  SIO
 LCA 'A1  M1'
 LOC    20
 LDC I,6
 LDC I,6
 CSP  WRS
 CSP  EIO
L3 LAB
 RET P
L1 DEF        32
 SST P  BB000002       2       8       0      16       8
 LOC     0
BB000002 ENT P,2,L1  BB             1 1 1
 LOD I,2,8
 LOD I,2,12
 MPI
 STR I,2,28
 LDA 1,13
 CSP  SIO
 LCA 'THIS IS BB  C1,C2 PASSED'
 LDC I,24
 LDC I,24
 LOC    10
 CSP  WRS
 CSP  EIO
 MST 2,12,12
 LOD I,2,28
 PAR I
 LOD I,2,8
 PAR I
 LOD I,2,12
 PAR I
 CUP P,6,AA000001
 LOC    20
 RET P
L1 DEF        32
 SST P  CC000003       2       4       0      20       4
 LOC     0
CC000003 ENT P,2,L1  CC             1 1 1
 LDC I,100000
 STR I,2,28
 LOD I,2,8
 LOD I,2,28
 DVI
 STR I,2,24
 LDA 1,13
 CSP  SIO
 LCA 'THIS IS CC  M1  PASSED'
 LOC    10
 LDC I,22
 LDC I,22
 CSP  WRS
 CSP  EIO
 MST 2,8,8
 LOD I,2,28
 PAR I
 LOD I,2,24
 PAR I
 CUP P,4,BB000002
 LOC    20
 RET P
L1 DEF        32
 LOC     0
$MAINBLK ENT P,1,L3  $MAINBLK       1 1 1
 LDA 1,19
 CSP  SIO
 CSP  REW
 CSP  EIO
 LDA 1,18
 CSP  SIO
 CSP  RES
 CSP  EIO
 LDA 1,13
 LOC    10
 CSP  SIO
 CSP  REW
 CSP  EIO
 LDA 1,12
 CSP  SIO
 CSP  RES
 CSP  EIO
 LDA 1,13
 CSP  SIO
 LCA 'THIS IS MM'
 LOC    20
 LDC I,10
 LDC I,10
 CSP  WRS
 CSP  EIO
 LDC I,800000
 STR I,1,64
 MST 2,4,4
 LOD I,1,64
 PAR I
 CUP P,2,CC000003
 LOC    30
 RET P
L3 DEF       568
 STP